Wild Blue Yonder 1: 50 Years of Gs & Jets/Wild Blue Yonder - Episode 1 - 50 Years of Gs and Jets (Digital Ranch) (Spectrum Holobyte)(1-107-40-101)(1994).iso/control/panel.dir/00738_Script_738

Text File | 1994-08-29 | 893b | 28 lines

on goNextMovie where
  global aspectMenu, CDroot, DL, era, panelDummy

  if the castNum of sprite aspectMenu <= ¼
    the number of cast "B47 aspect menu" then
    set era = "JetAge"
  else if the castNum of sprite aspectMenu <= ¼
    the number of cast "SR71 aspect menu" then
    set era = "Vietnam"
  else if the castNum of sprite aspectMenu <= ¼
    the number of cast "MIG aspect menu" then
    set era = "Desert"
  else
    set era = "Tomorrow"
  end if

  -- Before launching next movie, make sure the user didn't hold the mouse
  -- down over the thin border at the bottom of the aspect menu.  If he
  -- did, no aspect label would light, and the argument passed to this
  -- handler would be the panel dummy.
  if where <> panelDummy then
    set destination = CDroot & era &DL& where
    go to movie destination
    abort
  end if

end goNextMovie